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BEQ 0001 

1 
1 

IDEHfiriCMIOM 



PRODUCT CODE! 
PHODUCT Uhmt 



CXVfVA0 VT¥30J/H»Vf 30H MODULE 
OCT li 1979 

COMPUTED SPECIAL SISfEMS 
Diaim EQUIPMgMT CO, LTDt 

BERKSs O^Kg 



COP¥Rl(iHT CC3 1979 BY 
OlGim EQUIPMENT COPPOPATIONi MAfNAPDf MASSt 



f fHIS aOFTMAHE IS rURNISHED UNDEB A LICEWiE AND MAY BE 

i USED AND COPIED OUhl IN ACCORDANCE lilTH tHE TEEMS OF 

I aucH LICENSE mt> mm the inclusioi^ or the above 

i copyright kotice, this software or mx other copies 

I thereof MAf MOT BE PROVIDED OR OTHERWISE MADE AVAILABLE 

4 TO mi OTHER PERSON ^ m TITLE TO AND OWNERSHIP OF THE 

5 SOFTWARE IS HEREBY TRABISFERREDg 

7 THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE 

1 WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED AS A 
f COMMITMENT BY DIGITAL EQUIPMENT CORPORATION, 

t DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR 

2 RELIABILITY OF ITS SOFTWARE ON EQUIPMENT WHICH IS NOT 

3 SUPPLIED BY DIGITAL, 
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3 VTV30»H/J on VT30»H DEC/Xil ^^ODULS 

i PEOORI^H DESCHIPflON 

II ¥Tf IS hU lOMOD I^HICH SKEPCISES 4 ¥TVI0»H/J OR ¥f30«H 

i3 COIiOUE ¥1DS0 DISPMf CONfMI^LElRg THE EXERCISE CONSlSfS 

13 or COWTimilLM UPDMIHO THE COKTENfS OF fHE PICfURE 

14 SfOHE SO k$ fO PRODUCE k HO¥ING PATTERN On THE SCREEN OF 
li THE Tt¥, MONITOR^ m SOFTWARE CHECKING IS CARRIED OUTr 

ii BUT ERRORS |M THE PICTURE STORE OR CHARACTER STORE AREAS 

11 nihh BE CWARlif ¥IS1BLE ON THE DISPMYg 

2, REOUIRSMEIIfS 

12 2 a HARDWARE 

11 VT¥30«H/a OR ¥T30«H CONTROLLER WITH TgVg MONITOR 

21 2t2 STORAGE 

2f ¥T¥ REQUIRES S00 liORDS OF STORAGE, 

32 3g PASS DEFINITION 

34 ONE PASS or THE ¥T¥ MODULE CONSISTS OF SIX COMPLETE 

35 SCREEN COLOUR CHANGES, 

3S 4t ilECUTION TIME 

4@ ONE PASS or THE ¥T¥ MODULE TAKES APPROXIMATELY ONE 

41 MINUTE WHEN RUNNING ALONE^ 

44 it CONFIGURATION REQUIREMENTS 

47 Sa DEFAULT PARAMETERS 



D¥ADR| 164000 
¥ECTORl 170 
BRIi 4 



VfYI DEC/Xll StBfEM EXERCISER M RT»il mcm ¥M02»ii 23«aUL«79 |6|0|l34 PhGE 4 



Si2 REQUIRED PAEIMgTERS 

NONE^ 



St DEVICE/OPTION SEIUP 

ENSURE THAT THE CONTROLliEH MODULES IRE CORRECTLY 
INSTALLED km CONNECTED TO THE COLOUR TtV® MONITOR^ THE 
MOMITOR SHOULD BE POWERED UP ^ 



7® MODULE OPERATION 

TEST SEQUENCE 

I, SET UP DEVICE REGISTER ADDRESSES AND MODULE 
VARIIBLESi 

SET DISPLAY CHARACTER MATRIX C6 X 6 OR 8 X 8), 

LOAD ENTIRE CHARACTER SET ^ITH DUMMY CHARACTERS 1252 
PATTERN!, 

LOAD SPECIAL PATTERNS FOR USE IN DISPLAY INTO 

CHARACTERS « 26 C6 X S3 OR CHARACTERS i " 36 CS K 

SET INITIAL COLOUR AND CHARACTER COMBINATION^ 

r, CHECK IF ALL COLOURS DONE, If SO^ REPORT END OF 
PASS AND GO TO E^ 

Cg DRAW PATTERN ON SCREEN UNTIL FULL OF FOREGROUND 
COLOUR. 

INCREMENT COLOUR COUNTER^ GO TO 



¥ISUAL OPERATION 

THE PICTURE STORE IS PRESET TO BLUE BACKGROUNDt A RED 
TRIANGLE IS THEN DRAWNf STARTING AT THE BOTTOM CENTRE OF 
THE SCREEN AND EXPANDING UPWARDS UNTIL THE SCREEN IS 
FULL or RED FOREGROUNDt THE SEQUENCE IS THEN REPEATED 
USING GREEN FOREGROUND ON RED SAC^GROUNDf BLUE ON GREEN | 
GREEN ON BLUEf RED ON GREEEN AND BLUE ON RED® AT END OF 
PASSp THE DISPLAY IS DISABLED THEN RESTART TAKES PLACE 
AT THE BEGINNING OF THE COLOUR SEQUENCE, 







ff¥I DiC/Xli SYSflM EXERCISER M ET«1I MICHO YM02^ll 23«JIIL«79 I6i0li34 P^GE S 

ssa 00@4 



IT khh flMESr THE EDGES OF THE TRIANGLE SHOULD hPmhU 
SMOOTH km MOVING STEADII.I, THE hPPthnhnCE Of ANY 
VERTICALLY STRIPED CH^R^CTERS ON THE SCREEN INDICJ^TES 
THAT M ILLEGAL CHMACTER IS BEING DISPLMED kT THM 
POSITION g MY OTHER PICTURE STORE OR CHARACTER STORE 
MlLFUNCflONS SHOULD BE JUST IS OEVIOUSt 



St OPERITION OPTIONS 

SRI 8 @i 6 X 6 CHARACTER MATRIX^ 
SRI ® if 8X8 CHARACTER MATRIX^ 



ft 



WON STANDARD PRINTOUT 
NONE^ 
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00000eC ) 1212 



,ENr»R 

lOMOD 

«,OTUSE 

.TITLE 

DDXCOM 

CSSUK 

,LIST 



<VTVA 164000,170, 4, 0,f,l#0 
140000, VTVA , 164000, 170,4,0,0, 1,0 
VTVA DEC/Xll SYSTEM EXERCISER MODULE 
VERSION 6 28»NOV«78 

BIN 



/VTVA / ; MODULE NAME, 



000000 




BEGINi 




000000 


126 


HODNAMI 


eASCII 


000001 


124 






000002 


126 






000003 


101 






000004 
00000S 


040 
000 


XFLAGi 


^BYTE 


000006 


164000 


ADDRi 


164000*0 


000010 


000170 


VECTORS 


170*0 


000012 


200 


BRll 


,BYTE 


000013 


000 


BR2I 


aBYTE 


000014 


000001 


DVIDl i 


04-1 


000016 


000000 


SRll 


OPEN 


000020 


000000 


SR2t 


OPEN 


000022 


000000 


5P3S 


OPEN 


000024 


000000 


SR4I 


OPEN 








000026 


140000 


STATi 


14000(' 


000030 


000620 


'INITS 


START 


000032 


000224 


*SPOINTi 


MODSP 


000034 


000000 


PASCNTj 





000036 


000001 


ICONTi 


1 


000040 


000000 


IC0UNT8 





000042 


000000 


SOrCNTi 





000044 


000000 


HRDCNTi 





000046 


000000 


SOFPASI 





0000S0 


000000 


HRDPASI 





000052 


000000 


SYSCNT8 





000054 


000000 


RANNUMI 





000056 




CONFIGl 




000056 


000000 


RESl 8 





000060 


000000 


RES2I 





000062 


000000 


SVR0f 


OPEN 


000064 


000000 


SVRli 


OPEN 


000066 


000000 


SVR2I 


OPEN 


000070 


000000 


SVR3I 


OPEN 


000072 


000000 


SVR4I 


OPEN 


000074 


0(90000 


SVRSi 


OPEN 


000076 


000000 


SVP6I 


OPEN 


000100 


000000 


CSRAi 


OPEN 


000102 




SBADRI 




000102 


000000 


ACSPl 


OPEN 


000104 




WASADRI 




000104 


000000 


ASTATi 


OPEN 


000106 




EPRTYPi 




000106 


000000 


ASBi 


OPEN 


000110 


000000 


AWASt 


OPEN 


000112 


001216 


'PSTRTi 


RESTRT 


000114 


000000 


WDTOl 


OPEN 



OPEN 



PRTY4+0 
PRTY0+0 



•USED TO KEEP TRACK OF WpUFF USAGE 

;1ST DEVICE ADDR, 

• 1ST DEVICE VECTOP. 

jlST BR LEVEL. 

;2ND PR LEVEL, 

•DEVICE INDICATOR 1. 

JSWITCH REGISTER 1 

JSWITCH REGISTER 2 

JSWITCH REGISTER 3 

; SWITCH REGISTER 4 

STATUS WORD 8 
MODULE START ADDPe 
MODULE STACK POINTER, 
PASS COUNTER. 

# OF ITERATIONS PEP PASSsl 

LOC TO COUNT ITERATION'S 

LOC TO SAVE TOTAL SOFT ERRORS 

LOC TO SAVE TOTAL HARD ERRORS 

LOC TO SAVE SOFT ERRORS PER PASS 

LOC TO SAVE HARD ERRORS PER PASS 

« OF SYS ERRORS ACCUMULATED 

HOLDS PANDOMt WHEN RAND MACRO IS CALLED 

RESERVED FOR MONITOR USE 

RESERVED FOR MONITOR USE 

RESERVED FOR MONITOR USE 

LOC TO SAVE P0, 

LOC TO SAVE RU 

LOC TO SAVE R2, 

LOC TO SAVE R3, 

LOC TO SAVE R4. 

LOC TO SAVE RSs 

LOC TO SAVE P6. 

ADDR OF CURRENT CSP, 

ADDR OF GOOD DATA, OR 

CONTENTS OF CSP, 

ADDR OF BAD DATA, OR 

STATUS REG CONTENTS, 

TYPE OF ERROR 

EXPECTED DATA, 

ACTUAL DATA, 

RESTART ADDRESS AFTER END OF PASS 
WORDS TO MEMORY PEP ITERATION 
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000116 
000120 
000122 



WDFRi 

INTRS 
IDNUMi 



OPEN 
OPEN 



,REPT 
.NLIST 

,WORD 
.LIST 

sENDR 



WORDS FROM MEMORY PER ITERATION 
» OF INTERRUPTS PER ITERATION 
MODULE IDENTIFICATION NUMBFRb0 
MODULE STACK STARTS HERE, 
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SEQ 0007 



I 

ICONSTANTS AND VARIABLES USED IN PROGRAM, 
I 

.NLIST BEX 

000224 000000 ACNfl OPEN jVARIABLES LOADED AT RUN^TIME, 

000226 000000 BCNTI OPEN 

000230 000000 CHARAi OPEN 

000232 000000 CHARBi OPEN 

000234 000000 ACHARI OPEN 

00236 000000 BCHARl OPEN 

00240 000000 CCHARS OPEN 

00242 000000 DCHAR8 OPEN 

00244 000000 MAX¥l OPEN 

00246 000000 MAXXl OPEN 

00250 000000 LXl OPEN 

00252 000000 RXf OPEN 

00254 000000 CHROSivi OPEN 

00256 000000 CHCNTi OPEN 

00260 000014 M6X6? 14 ^CONSTANTS FOP 6X6 CHARACTER MATBIXg 

00262 000013 13 

00264 0003S0* CHARA6 

00265 000371* CHARB6 
00270 000412* ACHAR6 
00272 000420* BCHAP6 
00274 000426* CCHAR6 
00276 000434* DCHAR6 
00300 0000S7 57 
00302 000120 120 
00304 000047 47 
00306 000050 50 
00310 000006 6 

00313 000005 5 

00314 000020 M8X8i 20 ^CONSTANTS FOR 8X? CHAR&CTEP MATRIX^ 
00316 000017 17 

00320 000442*' CHAP&8 

00322 000471* CHARB8 

00324 000520^ ACHAFS 

00326 000530* BCHAP8 

00330 000S40* CCHARB 

00332 000550* DCHAR8 

00334 000045 45 

00336 000100 100 

00340 000037 37 

00342 000040 40 

00344 000010 8, 

00346 000007 7 

00350 000 CHARA6$ ^BYTE 0,0,0,0,0,0 |6X6 CHARACTER DATA 

00356 004 »BYTE 4,14,34,74,174,374 

00364 374 ,BYTE 374,374,374,374,374 

00371 000 CHARB6f ,BYTE 0,0,0,0,0 

00376 200 «BYTE 200, 3P0, 340, 360, 370, 374 

00404 374 .BYTE 374,374,374,374,374 
9 EVEN 

00412 001 ACHAR6I ,BYfE 1,2,3,4,5,6 j6X6 CHAPACTEP TABLE, 

00420 007 BCHAR6! bBYTE 7 , 1 » 11 » 1 2, 1 3 , 1 3 

00426 014 CCHAR6I .BYTE 14,15,16,17,20,21 

00434 022 DCHAR6I sBYTE 22*23,24,25,26,26 
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58 


00442 


000 


CHARABf 


9BYTE 


0,0 


#0f0f 


0,0 


0,0 ;8X8 CHARACTER DATA 


59 


00432 


001 




,BYTE 


1,3 




,37 


77,177,377 




60 


00462 


377 




.BYTE 


377 


#377, 


377 


377,377,377, 


377 


61 


00471 


000 


CHARBSf 


,BYTE 


0,0 


,0,0, 


0,0 







62 


00500 


200 




aPYTE 


200 


,300, 


340^ 


360,370,374, 


376,377 


63 


00510 


377 




,BYTE 


377 


, 377, 


377 


377,377,377, 


377 


64 








sEVEN 












6S 


00520 


001 


ACHAR8! 


aBYTE 


1,2 


,3,4, 


5,6 


7,10 


;6X8 CHARACTER TABLE 


66 


00330 


011 


BCHAR8I 


,PYTE 


1 If 


12,13 


#14 


15,16,17,17 




67 


00540 


020 


CCHARS 1 


«BYTE 


20, 


21,22 


,23 


24,25,26,27 




6S 


00SS0 


030 


DCHAR8I 


«BYTE 


30, 


31,32 


,33 


34,33,36,36 




69 


00560 


241 


COLI 


«BYTE 


241 


,212, 


224 


242,221,214 




70 
71 








«EVEN 
.LIST 


BEX 










72 


00556 


001702 


^MSGll 


MSG66 












73 


00S70 


177777 




177777 












74 


00572 


001725 


*MSG2i 


MSGS 8 












75 


00574 


177777 




177777 












76 


00576 


000000 


ITCNT5 















77 


00600 


000000 


CSPI 


OPEN 






.•CONTROL & STATUS REGISTER ADDRESS 


78 


00602 


000000 


DBUFi 


OPEN 






.•DATA BUFFER REGISTER ADDRESS 


79 


00604 


000000 


CAP! 


OPEN 






;CUPSOR REGISTER 


ADDRESS 


80 


00606 


000000 


CHSR8 


OPEN 






{CHARACTER STORE 


REGISTER ADDRESS 


81 


00610 


000000 


START18 


OPEN 






{STARTING COORDINATE FOR LEFT DIAGONAL 


82 


00612 




STARTS! 


OPEN 






? 


DITTO 


FOR RIGHT DIAGONAL 


83 


00614 


000000 


XYll 


OPEN 






{RUNNING COORDINATE FOR LEFT DIAGONAL 


84 


00616 


000000 


XY2I 


OPEN 






? 


DITTO 


FOR RIGHT DIAGONAL 



r 
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1 I 

2 iINITIALISE AND LOAD CHARACTER SET, 

3 I 



4 000620 


016700 


STARTj 


MOV 


ADDR,R0 


fGET BASE ADDRESS 




177162 










5 000624 


010067 




MOV 


R0,CSR 


jLOAD UP TABLE} CONTROL & STATUS 




177750 










6 000630 


005720 




TST 


(R034- 




7 000632 


010067 




MOV 


R0,DBUF 


jDATA BUFFER 




177744 










8 000636 


005720 




TST 




; 


9 000640 


010067 




MOV 


R0,CAR 


iCURSOR REGISTER 




177740 










10 00644 


005720 




TST 


(R0J + 


t 


11 00646 


010067 




MOV 


R0,CHSR 


jCHAPACTER STORE REGISTER 




177734 










12 00652 


016700 




MOV 


VECTOR, R0 


jNOW LOAD INTERRUPT VECTOR, 




177132 










13 006S6 


012720 




MOV 


8RDYINT, (R0)-!' 


jSEPVICE ROUTINE 




001164* 










14 00662 


005010 




CLF 


(R0) 




IS 00664 


116710 




MOVP 


BRl, CR03 


lAND PRIORITY, 




177122 










16 00670 


032767 




BIT 


#1#SR1 


jSEE WHICH MMATPIX REQUIRED, 




000001 
177120 










17 00676 


001417 




BEQ 


2$ 


fBRANCH IF 6 X 6. 


18 00700 


005077 




CLF 


iCSR 


JSET UP FOR 8 X 8s 




177674 










19 00704 


012700 




MOV 


#ACNT,R0 


fGET START OF VARIABLE TABLE 




000224' 










20 00710 


012701 




MOV 


SM8X8,R1 


;GET START OF CONSTANT TABLE 




000314' 










21 00714 


012702 
000016 




MOV 


#148j.R2 


jCOUNT OF TABLE ENTRIES 


22 00720 


012120 


185 


MOV 


{pn*f CR0)* 


jLOAD AN ENTRY 


23 00722 


005302 




DEC 


R2 


?COUNT, 


24 00724 


001375 




BNE 


1$ 


}LOOP UNTIL TABLE FINISHED, 


23 00726 


104403 






rBEGIN,MsG2 


lASCII MESSAGE CALL WITH COMMON HEADER 


00730 


000000* 










00732 


000572* 










26 00734 


000417 




BR 


4$ 


jTHEN EXIT, 


27 00736 


012777 


2is 


MOV 


#1400, 9CSR 


JSET UP FOP 6X6 




001400 












177634 










28 00744 


012700 




MOV 


SACNT,R0 


jGET START OF VARIABLE lABLE, 




000224* 










29 00750 


012701 




MOV 


#M6X6#Ri 


J GET START OF CONSTANT TABLE, 




000260* 










30 007S4 


012702 




MOV 


#148»P2 


jCOlINT OF TABLE ENTRIES, 




000016 










31 00760 


012120 


3Si 


MOV 


(Rl )+, CR0)* 


jLOAD AN ENTRYs 


32 00762 


005302 




DEC 


P2 


;COUNT. 


33 00764 


001375 




BNE 


3$ 


jLOOP UNTIL TABLE FINISHED. 


34 00766 


104403 




MSGNS( 


rBEGINf MsGl 


lASCII MESSAGE CALL WITH COMMON HEADER 


00770 


000000* 










00772 


000566' 











VTVA DEC/Xll SYSTEM EXERCISER M RT-U MACRO VH02-11 23-JUL-79 16S0U34 PAGE 
4SI 



35 


00774 


005077 






177604 


36 


01000 


016700 






177602 


37 


01004 


105060 


38 




000001 


39 






40 






41 


01010 


012700 


42 


01014 


000200 
016701 






177234 


43 


01020 


112777 






000252 






177560 


44 


01026 


005301 


45 


01030 


001373 


46 


01032 


005300 


47 


01034 


001367 


48 
49 






50 






51 


01036 


016700 






177544 


52 


01042 


105060 


53 


01046 


000001 

016700 






177156 


54 


01052 


016702 






177146 


55 


01056 


010001 


§6 


01060 


016703 






177170 


S7 


01064 


112177 






177516 


58 


01070 


005303 


59 


01072 


001374 


60 


01074 


00S200 


61 


01076 


005302 


62 


01100 


001366 


63 


01102 


016700 






177124 


64 


01106 


016702 






177114 


65 


01112 


010001 


66 


01114 


016703 






177134 


67 


01120 


112177 






177462 


6S 


01124 


005303 


69 


01126 


001374 


70 


01130 


00S200 


71 


0U32 


005302 


72 


01134 


001366 


73 


01136 


112777 






000242 



CLR 
MOV 
CLRB 



SCAR 
CHSR,R0 

1CP0) 



I LOAD ALL DUMMY CHARACTERS FIRST, 

5 



LDCHi MOV 
ISI MOV 
2$i MOVB 



#128^ ,R<^ 
CHR0W,R1 
#252,BCHSP 



DEC PI 

BNE 2S 

DEC P0 

BNE IS 



IZERO CURSOR 
J GET HIGH BYTE ADDRESS 
;CLP HIGH BYTE OF CHSR. 

;NUMBFR OF CHARACTERS 
fBYTES PEP CHARACTER 
;LOAD A BYTE, 



jCHARACTER DONE? 
?BRANCH IF NOT 
lALL CHARACTERS DONE? 
fBRANCH IF NOTs 



fDlJMMY CHARACTERS LOADED, NOW LOAD SPECIALS, 



3S| 
4SS 



6§l 



MOV 


CHSP,P0 


J GET HIGH BYTE ADDRESS 


CLRB 


1 CR0) 


; ZERO CHAR ADDRESS. 


MOV 


CHARAyR0 


jGET DATA POINTER, 


MOV 


ACNT,P2 


jNUMBER OF CHARACTEPSa 


MOV 


R0,R1 


jCOPY POINTER, 


MOV 


CHR0W,R3 


IBYTES PEP CHARACTER. 


MOVB 


CPU^^fCHSR 


iLOAD A BYTFe 


DEC 


R3 


CHARACTER DONE? 


BNE 


4$ 


IBPANCH IF NOTe 


INC 


R0 


fUPDATE POINTER 


DEC 


P2 


ITHIS LOT DONE? 


BNE 


3S 


jBRANCH IF NOT« 


MOV 


CHARB,R0 


INEXT POINTER 


MOV 


BCNT,R2 


;NUMBER OF CHARACTERS. 


MOV 


R0,R1 


;COPY POINTER, 


MOV 


CHR0W,R3 


JBYTES PEP CHARACTER, 


MOVB 


CPn*,fSCHSR 


jLOAD A BYTE 


DEC 


R3 


;CHAR DONE? 


BNE 


6$ 




INC 


P0 


> UPDATE POINTEP, 


DEC 


R2 


}ALL DONE? 


BNE 


5$ 


iBRANCH IF NOT 


MOVB 


«242,PDBUF 


ISET GREEN ON BLUE, 
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SEQ «0U 







177436 








74 


01144 


112777 


MOVE 


#30P'#PDBUF 


jCLEAP BLINK CONTPOLg 






000300 












177430 








75 


01152 


0S2777 


BIS 




• SET I^JTg ENABj AFD PRESET, 






000110 












177420 








76 


01160 


104400 


EXITS 


,BEGIN "EXIT TO 


MONITOR, WAIT FOP INTERRUPT, 




01162 


000000* 






fCLEAP TNTj ENABLEj 


77 


01164 


042777 RDYINTl 


BIC 


8 1 00# SCSP 






000100 












177406 








78 












01172 


000004 


PIPQ$ 


,BEGIN,1S ; QUEUE 


CONTINUE AT IS AND RTI 




01174 


000000* 










01176 


001200* 








79 


01200 


032777 13} 


BIT 


«BIT10,?CSP 


jCHECK FOP 525 LINES, 






002000 












177372 








80 


01206 


001403 


BEQ 


RESTRT 


J IF NOT, OK 


81 


01210 


162767 


SUB 


#10,MAXY 


fYESiPEDUCE MAXIMUM Y COORD, 






000010 
177026 
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S1,@CSR jTUPN DISPLAY ON, 

«TIMINT,?VECTOR ;SET FOP TIMER SERVICE 



MOV 



1 001216 052777 RESTPTi BIS 

000001 

177354 

2 001224 012777 

001356' 
176S56 

3 001232 005067 

177340 

4 001236 026727 PASSt CMp 

177334 
000006 

5 001244 001005 

6 001246 042777 

040101 
177324 

7 001254 104413 
001256 00000fl' 



CLF 



BIC 



ITCNT 
ITCNT,#6 



IS 

#40101 #iaCSR 



jRESET CQtOUR COUNTFP, 
} ALT. COLOURS DONE YFT? 



I IF NOT, CAPRY ON, 
fDISPLAY "FF, DISABLE INTS, 



MOV 
MOVB 



INC ITCNT 
MOVB LX,START1 



MOVR PX,START2 



8 001260 016701 1S5 

177312 

9 001264 116177 

000560* 
177310 

10 01272 005267 

177300 

11 01276 116767 

176746 
177304 

12 01304 116767 

176734 
177277 

13 01312 1 16767 

176734 
177272 

14 01320 116767 

176720 
177265 

15 01326 005001 STROWf CLR 

16 01330 016767 FIRST! MOV 

177254 
177256 

17 01336 016767 

S77250 
177252 

18 01344 052777 

040000 
177226 

19 01352 104400 
0I3S4 000000* 

20 01356 042777 TlMINTi BIC 

140000 
177214 

01364 000004 PIROS, BEGIN, CONT 

01366 000000* 
01370 001372' 



ENDITS, BEGIN jSIGNAL END OF ITERATION, 

•MONITOR SHALL TEST END OF PASS 



ITCNT, PI ;GET COLOUR INDEX. 

COLCRl) ,flDPUF jSET COLOUR, 



; UPDATE COUNTER FOR NEXT TIV-E. 
jSET 1ST X COORD (LEFT) , 



HOVB MAXY,STAFT1 +1 ;SET 1ST Y COORD (LEFT) , 



;SET 1ST y COORD (RIGHT) , 



MOVB HAXY,STAPT2*1 ;SET 1ST Y COORD (RIGHT) , 



MOV 



BIS 



Rl 

STAPTl »XY1 



5TART2,XY2 
«BITl4,aCSR 



fPl IS NOi*- CHARACTER INDEX, 
JSET RUNNING COORDINATES 



jENABLE TIMER 



EXITS, BEGIN -EXIT TO MONITOR, WAIT FOR INTERRUPT, 

8PIT151BIT14,(3CSP {DISABLE TI^-ER, 



J QUEUE CONTINUE AT CONT AND RTI 



r 



VTVA DEC/Xll SYSTEM EXERCISER M 


RT-1 I MACRO 


VM02-1 1 23-JUL-79 16|01|34 I 


22 


01372 


126767 


CONTi 


CMPR 


XYl ,MAXX 


; AT MAXIMUM X ? 






177216 














176646 










23 


01 400 


103013 




BHIS 


lis 




24 


1 402 


016777 




MOV 


XYl#iCAP 


JSET FOR 1ST LEFT 






1 77206 














177174 










25 




105777 


! S 


TSTR 


acSR 


iCHECK READY 






177164 










26 


01414 


100375 




BPL 


IS 


jWAlT IF K'ECESSARY, 


27 


01416 


016702 




MOV 


ACHAP,R2 


IGET CHARACTER ADDRESS 






176612 










28 


01422 


060102 




ADD 


R1#B2 


jADD INDEX 


29 


01424 


111277 






(R2) »@DBUF 


}AND SEND IT« 






177152 










30 


01430 


126767 


1 1 $ 1 


CMpR 


XY2»WAXX 


jAT MAXIMUM X ? 






177162 














176610 










3 i 


01436 






BHIS 


I2S 




32 


01 440 


016777 




MOV 


XY2,fCAR 


jMOVE CURSOR TO 1ST RIGHT 






1 77 1 32 














177136 










33 


01446 


1 05777 




TSTB 


?CSP 


;CHECK READY 






177126 










34 


01452 


1 00375 




BPL 


2S 




35 


01 4S4 


016702 




MOV 


CCHAP,P2 


fGET CHARACTER ADDRESS 






1 76560 










36 


01 460 


060102 




ADD 


R1»R2 


lADD INDEX 


37 


01462 


111277 




MOVB 


(P25#@DBUF 


fAND SEND ITs 






177114 










38 


1 41^6 


1 26767 


1281 


Cf'PB 


XYl ,LX 


J IS X AT CENTRE? 






177122 














176554 










39 


01474 


001452 




BEQ 


NXCHAP 


J IF SO, SKIP 2ND PAIR, 


40 


01476 


105267 




INCB 


XYl 


JUPDATE COORDINATES 






177112 










41 


01502 


105367 




DECP 


XY2 


J FOR 2ND PAIR, 






177110 










42 


01506 


126767 




CMPR 


XY1,MAXX 


}AT MAXIMUM X I 






177102 














176532 










43 


01314 


103013 




BHIS 


13$ 




44 


01516 


016777 




MOV 


XYl ,«»CAP 


JSET CURSOR FOR LEFT, 






177072 














1 77060 










4S 


01524 


] 05777 


31 1 


TSTB 


9C5P 


fCHECK FOP READY 






177050 










46 


01530 


100375 




BPL 


3S 




47 


01532 


016702 




MOV 


BCHAR,R2 


jGET CHARACTER ADDRESS 






176500 










48 


01536 


060102 




ADD 


R1,R2 


jADD INDEX 


49 


01S40 


111277 




MOVP 


(R2)#eiDBUF 


J AND SEND IT, 






177036 










S0 


01S44 


126767 


138S 


CMPP 


XY2,»^AXX 


J AT MAXIMUM X ? 






177046 














176474 










SI 


01552 


103013 




BHIS 


i4S 




VTVA DEC/Xll SYSTEM EXERCISER H 


RT-1 1 MACRO 


VM02«'ll 23«JUL«.79 16l0ll34 i 


S2 


015S4 


016777 




MOV 


XY2»^eAP 


jSET CURSOR FOR RIGHT, 






177036 














177022 










§3 


01S62 


105777 


411 


TSTB 


?CSR 


jCHECK FOP READY, 






177012 










S4 


01566 


100375 




BPL 


4$ 




55 


01570 


016702 




MOV 


DCHAR,R2 


jGET CHARACTER ADDRESS 






176446 










S6 


01574 


060102 




ADD 


Pl,R2 


jADD INDEX 


57 


01576 


1U277 




MOVB 


(P23»9DBUF 


JAND SEND 1T» 






177000 










58 


01602 


105767 




TSTB 


XYl + 1 


}Y REACHED TOP? 






177007 










39 


01606 


001405 




BFQ 


NXCHAR 


J IF SO, CHANGE CHAPS, 


60 


01610 


105367 




DECR 


XYl + l 


;N0, UPDATE COORDINATES 






177001 










6! 


01614 


105367 




DECB 


XY2tl 








176777 










63 


01620 


000664 




BR 


CONT 


jAND CONTINUE ROW, 


63 


01622 


020167 


NXCHAPJ 


CMP 


Rl ,CHCNT 


;ALL CHARACTERS DONE? 






176430 










64 


01626 


001402 




BEQ 


NXTROW 


J IF SO, START NEW ROW, 


65 


01630 


005201 




INC 


PI 


JNO, NEXT SET OF CHARS 


66 


01632 


000636 




BP 


FIRST 


jGO BACK TO ROW START, 


67 


01634 


126767 


NXTROWt 


C»'PB 


STAPT2,MAXX 


;RUN out OF X'S YET? 






176752 














176404 










68 


01642 


001405 




BEQ 


NEXTY 


;IF SO, CHANGE Y STARTS, 


69 


01644 


105367 




DECB 


STAPTl 


; N0# CHANGE X STARTS. 






176740 










70 


01650 


105267 




INCB 


STARTS 








176736 










7i 


016S4 


000624 




BP 


STROW 


{START NEW ROW, 


72 


016S6 


105767 


NEXTYl 


TSTB 


STARTl+l 


lY START PEACHED TOP? 






176727 










73 


01662 


001002 




BNF 


18 




74 


01664 


000167 




JMp 


PASS 


fir SO, GO TO PASS COUNT. 






177346 










75 


01670 


105367 




DECR 


STARTl+1 


fNO, CHANGE Y STARTS 






176715 










76 


01674 


105 367 




DECB 


START2+1 


} 






176713 










77 


01700 


000612 




BP 


STROW 


1 START NE'-^v ROW, 


78 








,NLIST 


BEX 




79 


01702 


US 


MSG66I 


,ASCIZ 


'MATRIX IS 


6 BY 6,%" 


80 


01725 


lis 


MSG88S 


.ASCI2 


'MATRIX IS 


8 BY 8^%* 


8t 








.LIST BEX 




83 








»EVEN 






83 




000001' 








jEND OF PROGRAM, 
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SYMBOL TABLE SEQ 0015 



ACHAR 


000234R 


ACHAP6 


000412R 


ACHAR8 


000520R 


ACNT 


000224R 


ACSP 


000102R 


ADDP 


0pi0006R 


ADDR22S 


001000 


ASB 


000106R 


ASTAT 


000104R 


AWAS 


0001 10R 


BCHAR 


000236R 


BCHAR6 


0C0420R 


BCHAR8 


000530R 


BCNT 


000226P 


BEGIN 


000000R 


BIT0 » 


000001 


BIT! » 


000002 


BIT10 s 


002000 


BITll a 


004000 


BIT12 a 


010000 


BIT13 a 


020000 


BIT14 B 


040000 


BIT15 = 


! 00000 


BIT2 s 


0('0004 


BIT3 as 


000010 


BIT4 s 


000020 


BITS s 


000040 


BIT6 s 


000100 


BIT7 B 


000200 


BITS s 


000400 


BIT9 s 


001000 


BREAKSs 


104407 


PPl 


000012R 


BR2 


00001 3R 


BTOnS s 


104421 


CAR 


000604R 


CCHAR 


000240R 


CCHAR6 


000426R 


CCHARR 


000540R 


CDATAS® 


104412 


CHAPA 


000230R 


CHARA6 


000350R 


CHARAe 


000442R 


CHAPB 


000232R 


CHAP56 


000371R 


CHARB8 


000471P 


CHC^'T 


000256P 


CHROW 


000254R 


CHSR 


000606R 


COL 


000560P 


CONFIG 


000056R 


CONT 


001 372R 


CSR 


000600R 


CSRA 


000100P 


DATCK$8 


1044U 


PATERSs 


104404 


DPyF 


000602R 


DCHAR 


000242R 


DCHAR6 


000434R 


DCHARS 


000550R 


DVIDl 


000014R 


ENDITSb 


104413 


ENDS 8 


104410 


ERRTYP 


000i06n 


EXITS K 


104400 


FIRST 


001330P 


GETPASs 


104415 


GWBUFSe 


104414 


HPDCNT 


000044P 


HRDER$B 


10440S 


HPDPAS 


0e0050R 


ICONT 


000036R 


ICOUNT 


000040R 


IDNUM 


0001 22P 


INIT 


000030R 


INTR 


000i20R 


ITC^T 


000S76R 


LDCH 


0P1010P 


LX 


000250R 


MAP22SS 


104416 


MAXX 


05'0246R 


MAXY 


000244R 


MOD NAM 


000000R 


MODSP 


000224P 


MSGNs s 


104403 


MSGSS s 


104402 


MSGS s 


lv)440J 


MSGl 


000566R 


MSG2 


000572R 


MSG66 


00n02R 


MSGB8 


001725R 


M6X6 


000260P 


M8Xe 


0P0314P 


NEXTY 


001656R 


NULL ® 


000000 


MXCHAP 


0'/1622p 


NXTROW 


001634R 


OPEN s 


000000 


OTOAS a 


ir4420 


PASCNT 


000034R 


PASS 


001 236R 


PC a 


1000007 


PIRQ$ S3 


000004 


POPSP s 


005726 


P0PSP2S 


022626 


PRTY a 


000000 


PPTY0 = 


000000 


PRTYl s 


0fi0040 


PRTY2 s 


000100 


PRTY3 s 


000140 


PPTY4 = 


000200 


PRTY5 a 


000240 


PRTY6 = 


000300 


PPTY7 s 


000340 


PS s 


177776 


PSW s 


177776 


PUSH s 


0i^5746 


PUSH2 s 


024646 


RANDS = 


104417 


PANNUM 


000054P 


RDYINT 


001 164R 


PESTRT 


001216R 


RFSl 


0i^0056R 


RES2 


000060R 


RSTRT 


000U2R 


RX 


000252R 


R0 a%000000 


RJ a 


1000001 


P2 = 


%000002 


R3 s%000003 


R4 s 


1000004 


R5 = 


%000005 


R6 s%000006 


R7 s%0e0007 


SPADR 


0150102P 


SOFCNT 


000042P 


SOfERSs 


104406 


SOFPAS 


000046R 


SP ®%000006 


SPOINT 


000032R 


SFSIZ s 


000040 


SRI 


000016P 


SR2 


000020R 


SR3 


000022P 


SR4 


000024R 


START 


000620R 


STARTl 


0006 10R 


STAPT2 


000612R 


STAT 


000026R 


STPOi^ 


00i326R 


SVR0 


000062R 


SVRl 


000064R 


5VP2 


000066R 


SVR3 


000070R 


SVP4 


000072R 


5VR5 


000074P 


SVR6 


000076R 


SYSCNT 


000052R 


TIMINT 


001356R 


TRPDFDB 


000022 


VECTOR 


000010R 


WASADP 


0i^0104R 


WDFR 


000116R 


WDTO 


0001 i4R 


XFLAG 


0t^0005P 


XYl 


000614R 


XY2 


0006i6R 






8 ABSg 


000000 


?00 
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